;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;
(DEFUN chkxrefsizes ( / xrblklst)
  (SETQ xristoobig NIL)
  (SETQ thisblk (TBLNEXT "BLOCK" T))
  (IF (EQ (BOOLE 1 4 (CDR (ASSOC 70 thisblk))) 4)
    (SETQ xrblklst (LIST (CDR (ASSOC 1 thisblk))))
  )
  (WHILE
    (SETQ thisblk (TBLNEXT "BLOCK"))
    (IF (EQ (BOOLE 1 4 (CDR (ASSOC 70 thisblk))) 4)
      (IF (MEMBER (CDR (ASSOC 1 thisblk)) xrblklst)
        NIL
        (SETQ xrblklst (APPEND xrblklst (LIST (CDR (ASSOC 1 thisblk)))))
      )
    )
  )
  (IF DOS_FILE
    NIL
    (check_for_doslib)
  )
  (FOREACH n xrblklst
    (IF (SETQ thisxrfile (FINDFILE n))
      (PROGN
        (SETQ thisxrinfo (DOS_FILE thisxrfile))
        (IF (>(IF (EQ (TYPE(CADR thisxrinfo)) 'REAL) (CADR thisxrinfo) (READ(CADR thisxrinfo)))3000000)
          (SETQ xristoobig T)
        )
      )
    )
  )
)
